home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00809_SU-co bt avs & rws.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  2.0 KB  |  72 lines
  1. on MouseClick lePas
  2.   global gListSuj, gListCod, gSujetO, gSujet1, gMol, gPartie, gNumSpr, gBoutons, g1erSprLoc, gBarChron, gSurvolPrec, gTraduit, gMessDef1, gMessDef2, gMessSty2, gScopeCo0, gScopeCo1, gPosVideo, gPosDebP, gPosDebS0, gPosDebS1, gPosDebE
  3.   curseur(6)
  4.   set monCod2 to gSujet1(Le_Code)
  5.   set maPos2old to getPos(gListCod, monCod2)
  6.   set gPosVideo to gScopeCo0(GetTime) - gPosDebE - gPosDebS0 - gPosDebP
  7.   set maPos2 to 17
  8.   set gSujet1 to getAt(gListSuj, maPos2)
  9.   set gMessDef2 to gSujet1(Le_Nom)
  10.   set gMessSty2 to "bold italic"
  11.   set the textStyle of cast "ZI5" to gMessSty2
  12.   set the text of cast "ZI5" to gMessDef2
  13.   set monCod2 to gSujet1(Le_Code)
  14.   set monCod1 to gSujet0(Le_Code)
  15.   if monCod1 = monCod2 then
  16.     gBoutons(habille, g1erSprLoc + 11, "BTPVID 1")
  17.   else
  18.     gBoutons(habille, g1erSprLoc + 11, "BTPOEI 1")
  19.   end if
  20.   set monEpok to gSujet1(Le_Epoque)
  21.   gBarChron(fleche, 1, monEpok, 1)
  22.   set gPosDebS1 to (getPos(gListCod, gSujet1(Le_Code)) - 1) * 300 * 4
  23.   gScopeCo1(SetTime, gPosDebE + gPosDebS1 + gPosDebP + gPosVideo)
  24.   gBoutons(relache, gNumSpr)
  25.   curseur(-1)
  26. end
  27.  
  28. on mouseDown
  29.   global gBoutons, g1erSprLoc, gEtatEtud, gNumSpr
  30.   if the visible of sprite (g1erSprLoc + 12) then
  31.     set gNumSpr to -2
  32.     repeat with i = g1erSprLoc + 12 to g1erSprLoc + 13
  33.       if rollOver(i) then
  34.         set gNumSpr to i
  35.         exit repeat
  36.       end if
  37.     end repeat
  38.     if gNumSpr > 0 then
  39.       gBoutons(appuie, gNumSpr)
  40.     else
  41.       pass()
  42.     end if
  43.   else
  44.     pass()
  45.   end if
  46. end
  47.  
  48. on mouseUp
  49.   global gBoutons, g1erSprLoc, gEtatEtud, gSurvolPrec, gNumSpr
  50.   if the visible of sprite (g1erSprLoc + 12) then
  51.     set monNumSpr to -2
  52.     repeat with i = g1erSprLoc + 12 to g1erSprLoc + 13
  53.       if rollOver(i) then
  54.         set monNumSpr to i
  55.         exit repeat
  56.       end if
  57.     end repeat
  58.     if (monNumSpr > 0) and (gNumSpr = monNumSpr) then
  59.       if gNumSpr = (g1erSprLoc + 12) then
  60.         set monPas to -1
  61.       else
  62.         set monPas to 1
  63.       end if
  64.       MouseClick(monPas)
  65.     else
  66.       pass()
  67.     end if
  68.   else
  69.     pass()
  70.   end if
  71. end
  72.